0 INPUT"ERSTE NUMMER";A
1 INPUT"SCHRITTWEITE";W
2 SYS58692:POKE830,W:IFA<10ORW=0ORA>63999THENRUN
3 POKE828,A/256:POKE829,A-PEEK(828)*256:PRINTA;:POKE204,0
4 GETA$:IFA$=""THEN4
5 POKE205,2:WAIT207,1,1:POKE204,1:PRINTA$;
6 IFA$<>CHR$(13)THEN4
7 PRINT"RUN 9":FORI=631TO634:POKEI,145:NEXT
8 POKE198,6:POKE635,13:POKE636,13:END
9 PRINT"[145]      ":PRINT"       [145][145][145]":A=PEEK(828)*256+PEEK(829)+PEEK(830):GOTO3